﻿Imports vb = Microsoft.VisualBasic
Public Class Form1
    Dim file As IO.FileInfo
    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        Try
            Dim opendlg As New OpenFileDialog With {.Filter = "All files (*.*)|*.*"}
            opendlg.ShowDialog()
            file = New IO.FileInfo(opendlg.FileName)
            txtAttrib.Text = file.Attributes
            txtOut.Text += vbNewLine & file.Name & vbTab & vbTab & ":" & "    " & vbTab & vbTab & ":" & vb.Right(file.Extension.ToUpper, vb.Len(file.Extension) - 1) & vbTab & ":" & file.Attributes
        Catch ex As Exception
        End Try
    End Sub


End Class
